home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
PASCAL
/
1463.ZIP
/
DRAW-2D.ARC
/
LEV4OPT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1986-11-25
|
824b
|
33 lines
PROCEDURE LEV4OPT;
VAR
KODE:INTEGER;
BEGIN
CASE OPTION OF
0: IF OBJPTR <= MAXSIZE THEN DRAWOBJ ELSE RING2;
1: BEGIN (* SCALE *)
IF (BUTTON1) OR (BUTTON2) THEN SKALE;
END;
2: BEGIN (* ZOOM-IN *)
IF (BUTTON1) OR (BUTTON2) THEN ZOOMIN;
END;
3: BEGIN (* ZOOM-OUT *)
IF (BUTTON1) OR (BUTTON2) THEN ZOOMOUT;
END;
4: BEGIN (* X-LATE *)
IF (BUTTON1) OR (BUTTON2) THEN XLATE;
END;
5: BEGIN (* PAN *)
IF (BUTTON1) OR (BUTTON2) THEN PAN;
END;
6: BEGIN (* ROTATE *)
IF (BUTTON1) OR (BUTTON2) THEN ROTATES;
END;
7: BEGIN
END;
8: IF (BUTTON1) OR (BUTTON2) THEN
BEGIN
LEV := 1;
MENU(LEV);
END;
END; (*CASE*)
END;